home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #3 / Amiga Plus CD - 1996 - No. 3.iso / demo-versionen / databaseprofessional_v3.0 / picbase / slideshow.rexx < prev    next >
OS/2 REXX Batch file  |  1994-11-25  |  907b  |  50 lines
  1. /* SlideDIA.rexx, 02.09.94 Jörg Richter */
  2. /* Slideshow aller markierten Bilder mit dem EGS Programm DIA */
  3.  
  4. OPTIONS RESULTS
  5.  
  6. effect.0 = "HALFLINE"
  7. effect.1 = "CHECKER"
  8. effect.2 = "DISSOLVE"
  9.  
  10. ADDRESS DataBase
  11.  
  12. Request "_Effekt|_Direkt" "DIA gestartet ?"
  13. eff = RC
  14.  
  15. LeftTotal
  16. weiter = 1
  17. DO WHILE weiter = 1
  18.   IsMarked
  19.   IF RC = 0 THEN DO
  20.     GetData $F1
  21.     bild = result
  22.     IF eff = 1 THEN DO
  23.       rnd = RANDOM(0,2,Time(s))
  24.       ADDRESS "rainbow"
  25.       Load bild
  26.       IF RC = 0 THEN DO
  27.         Show effect.rnd
  28.         FreeBuffer
  29.         SFName Times.font
  30.         SetFont 15 0
  31.         Color 220 10 150
  32.         Move 40 580
  33.         pos = Max(LastPos(":",bild),LastPos("/",bild))
  34.         Text DelStr(bild,1,pos)
  35.       END
  36.     END
  37.     ELSE DO
  38.       ADDRESS "rainbow"
  39.       Open bild
  40.       ADDRESS COMMAND
  41.       'Wait 3 secs'
  42.     END
  43.     ADDRESS DataBase
  44.   END
  45.   RightOne
  46.   IF RC ~= 0 THEN
  47.     weiter = 0
  48. END
  49.  
  50.